home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 48 / Tiger_Disk_048_1998-03_Tiger-Crew-Disk_de_Side_B.d64 / e n d e ! -037- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  966b  |  23 lines
  1. 100 poke 53280,.:poke53281,.:poke646,8  :printchr$(147):v=53248
  2. 110 poke53269,1:poke2040,11:pokev+21,1:
  3. 115 forc=8to15:poke646,c:print"[145][145][145]";
  4. 120 print"                                        ";
  5. 125 print"[145]                                        ";:
  6. 130 print"                                        ";:
  7. 135 print"                                        ";;;         :next
  8. 140 fori=1784to2023:pokei,98 :next
  9. 150 fors=0to62:readq:poke704+s,q:next:pokev+23,0:pokev+29,0:pokev+s,33
  10. 160 :forx=90to205step31:poke53248,x:poke53249,x/1.7:gosub200
  11. 165 fore=24to30step.6:poke53265,e:poke53265,peek(53265)and239
  12. 170 nexte:forp=21to36step.9:poke53270,p+1 :
  13. 180 pokev+39,12 :poke53265,peek(53265)or16:next:next
  14. 185 pokev+23,1:pokev+29,1
  15. 190 poke54296,0:poke53270,11: forz=1to1000:next:pokev+21,0:sys58253
  16. 200 poke54296,15:poke54278,155:forj=1to6step.9:poke54276,j+129:next
  17. 210 fori=0to33:poke54273,5+abs(16-i):poke54276,(i/.5662):next
  18. 220 return
  19. 230 data 122,46,122,67,41,66,114,169,114,66,105,64,122,46,122
  20. 240 data0,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,126,0,0,219,64,0,255
  21. 250 data64,0,255,96,0,102,112,0,60,112,0,126,112,7,255
  22. 260 data240,15,255,240,14,255,224,14,255,0
  23.